home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / mewin.arc / LEVELS.CMD < prev    next >
OS/2 REXX Batch file  |  1991-03-12  |  853b  |  37 lines
  1. ;  levels.cmd,  MicroEmacs,  12 Nov 89,  S.D. Maley
  2. ;  collapse and expand display
  3. ;  of lines between matching "fences"
  4. ;
  5. ;  NOTE: you must be on a fence char when you invoke collapse
  6. ;
  7. store-procedure collapse
  8.   set %bfl $curline
  9.   goto-matching-fence
  10.   !if &less $curline %bfl
  11.     set %efl %bfl
  12.   !else
  13.     set %efl $curline
  14.     goto-matching-fence
  15.   !endif
  16.   update-screen
  17.   set %whalf &div $wline 2
  18.   !if &less %whalf $cwline
  19.     &sub $cwline %whalf move-window-down
  20.   !endif
  21.   split-current-window
  22.   !if &less $cwline $wline
  23.     &sub $wline $cwline shrink-window
  24.   !endif
  25.   next-window
  26.   set $curline %efl
  27.   &sub $cwline 1 move-window-down
  28. !endm
  29.  
  30. store-procedure expand
  31.   delete-window
  32.   set $curline %bfl
  33. !endm
  34. ;
  35. macro-to-key expand    M-FNC    ;-- <Meta> <Ins>:  expand
  36. macro-to-key collapse    M-FND    ;-- <Meta> <Del>
  37.